subroutine check_count_param(lunit)
  use param
  use group_param,only:n_object_group
  use output_param,only:print_spatial_dist
  use count_param,only:spatial_file_name
  use box_param,only:channel_n
  implicit none
  integer,intent(in) :: lunit

  integer :: i,j,in1,pos1,pos2,width
  character(len=len_linebuf) :: str

  in1=1
  width=50

  call log_msg1(lunit,"")
  call log_msg1(lunit,"Check the names of output files")
  call log_msg1(lunit,"")

  if (print_spatial_dist) then
     call log_msg1_indent(lunit,in1,"> List of output files for &
          spatial distribution.")
     call drawline(lunit,in1,width)

     do j=1,channel_n(1)
        call log_msg1_indent(lunit,in1,&
             spatial_file_name%fnx(j))
     end do
     do j=1,channel_n(2)
        call log_msg1_indent(lunit,in1,&
             spatial_file_name%fny(j))
     end do
     do j=1,channel_n(3)
        call log_msg1_indent(lunit,in1,&
             spatial_file_name%fnz(j))
     end do

     call drawline(lunit,in1,width)
  end if

  return

end subroutine check_count_param
